Option Strict Off
Option Explicit On

Imports BCS.MotorActivacion.Base

Public Class FormatosCelda
    Inherits Lista

    Public ReadOnly Property Item() As FormatoCelda
        Get
            Return m_Item
        End Get
    End Property

    Public Sub AddItem(ByVal NewVal As FormatoCelda, Optional ByVal Refresh As Boolean = True)
        If Not m_List.Contains(NewVal.Key) Then
            m_List.Add(NewVal)
            If Refresh = True Then
                toRefresh()
            End If
        End If
    End Sub

    Public Function GetItem(ByVal Key As String) As FormatoCelda
        If m_List.Contains(Key) Then
            GetItem = m_List.Item(Key)
        Else
            GetItem = New FormatoCelda
        End If
    End Function
End Class